home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok81 / m2 / defs / terminal.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  44 lines
  1. DEFINITION MODULE Terminal;
  2. (*$ LargeVars:=FALSE LongAlign:=FALSE NameChk:=FALSE *)
  3.  
  4. (*
  5.  * 13.11.90/bp
  6.  * Neue Prozedur Flush
  7.  * Sicherheitsabfragen auf input,ouput#NIL eingebaut.
  8.  *)
  9.  
  10. FROM SYSTEM IMPORT ADDRESS;
  11.  
  12. VAR waitCloseGadget: BOOLEAN;
  13.  
  14. (* Gibt den Puffer aus *)
  15. PROCEDURE Flush;
  16.  
  17. PROCEDURE BusyRead(VAR ch: CHAR);
  18. PROCEDURE Read(VAR ch: CHAR);
  19.  
  20. (* ACHTUNG: setzt letztes Zeichen IMMER auf 0C !!!!!! *)
  21. PROCEDURE ReadLn(VAR st:ARRAY OF CHAR; VAR len:INTEGER);
  22.  
  23. PROCEDURE Write(ch: CHAR);
  24. PROCEDURE WriteLn;
  25. PROCEDURE WriteString(string: ARRAY OF CHAR);
  26.  
  27. PROCEDURE Format(str:ARRAY OF CHAR; dats:ADDRESS);
  28.  
  29. PROCEDURE FormatS(str:ARRAY OF CHAR;
  30.                   VAR innerStr:ARRAY OF CHAR);
  31.  
  32. (*
  33.  * Spezielles "Format" für eine Zahl:
  34.  * Option "l" muß immer angegeben werden, da LONGINT!
  35.  * z.B. ('count: %-5ld',4*5+x-y)
  36.  *)
  37. PROCEDURE FormatNr(str:ARRAY OF CHAR; nr:LONGINT);
  38.  
  39. (* n<0: linksbuendig *)
  40. PROCEDURE WriteInt(x:LONGINT; n:INTEGER);
  41. PROCEDURE WriteHex(x:LONGINT; n:INTEGER);
  42.  
  43. END Terminal.
  44.